home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tt.d64 / 1525 char.edit.c (.txt) next >
Commodore BASIC  |  2007-02-04  |  975b  |  35 lines
  1. 1 CLR:PRINTCHR$(8):POKE53281,0:POKE53280,6
  2. 2 PRINT"[147]       VIC 1525 CHARACTER EDITOR"
  3. 3 PRINT"D-DATA LIST
  4. 4 [153]"E-ERASE":[153]"T-TEST CHAR."
  5. 5 [153]"SPACE-PRINT
  6. 6 PRINT"CURSOR CONTROLS TO MOVE
  7. 7 [153]"          ";:[129]T[178]1[164]6:[153]"TO";:[130]:[153]
  8. 8 [129]T[178]1[164]7:[153]"          THEN";:[129]R[178]1[164]6:[153]".";:[130]:[153]"FN":[130]
  9. 9 [153]"          ";:[129]T[178]1[164]6:[153]"TAB(";:[130]:R[178]0:C[178]0:LS[178]46
  10. 10 [153]"ONCMDCMDCMDCMDCMDCMDONONONONONON";
  11. 11 [151]204,0:[161]A$:[139]A$[178]""[167]11
  12. 14 [151]204,1:[139]A$[178]"D"[167][141]1000:[137]1005
  13. 15 [139]A$[178]"E"[167]200
  14. 16 [139]A$[178]" "[167]400
  15. 17 [139]A$[178]"T"[167]500
  16. 18 [139]LS[178]46[167][153]".";:[137]20
  17. 19 [153]" WAIT";
  18. 20 R[178]R[171](A$[178]"")[170](A$[178]"CMD")
  19. 21 C[178]C[171](A$[178]"")[170](A$[178]"ON")
  20. 22 [139]R[179]0[176]R[177]5[167]R[178]0[172](R[177]5)[171]5[172](R[179]0)
  21. 23 [139]C[179]0[176]C[177]6[167]C[178]0[172](C[177]6)[171]6[172](C[179]0)
  22. 24 [153]"":[129]T[178]1[164]10[170]C:[153]"";:[130]:[129]T[178]1[164]17[170]R:[153]"";:[130]
  23. 25 LS[178][194](1481[170]C[172]40[170]R)
  24. 26 [137]11
  25. 200 [153]".";:R[178]R[170]1:[137]20
  26. 400 [153]" WAIT";:R[178]R[170]1:[137]20
  27. 500 T$[178]"":[141]1000:[129]T[178]1[164]6:T$[178]T$[170][199](D(T)):[130]:[159]4,4
  28. 501 [152]4,[199](8)T$:[160]4:[137]11
  29. 1000 [129]T[178]1[164]6:D(T)[178]0:[130]:B[178]1481:[151]1481[170]C[172]40[170]R,LS
  30. 1001 [129]T[178]0[164]5:[129]R[178]6[164]0[169][171]1:[139][194](B[170]T[170](6[171]R)[172]40)[178]160[167]D(T)[178]D(T)[170]2[174](6[171]R)
  31. 1002 [130]:D(T)[178]D(T)[170]128:[130]
  32. 1003 :[142]
  33. 1005 [153]"LOAD1000 DATA";:[129]T[178]0[164]5
  34. 1006 [153][201]([196](D(T)),3)",";:[130]:[153]"CMD "
  35.